home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1085 < prev    next >
Encoding:
Text File  |  1994-01-25  |  6.3 KB  |  328 lines
  1. %%BeginResource: procset Altsys_header 4 0
  2. userdict begin /AltsysDict 242 dict def end
  3. AltsysDict begin
  4. /bdf{bind def}bind def
  5. /xdf{exch def}bdf
  6. /defed{where{pop true}{false}ifelse}bdf
  7. /ndf{1 index where{pop pop pop}{dup xcheck{bind}if def}ifelse}bdf
  8. /d{setdash}bdf
  9. /h{closepath}bdf
  10. /H{}bdf
  11. /J{setlinecap}bdf
  12. /j{setlinejoin}bdf
  13. /M{setmiterlimit}bdf
  14. /n{newpath}bdf
  15. /N{newpath}bdf
  16. /q{gsave}bdf
  17. /Q{grestore}bdf
  18. /w{setlinewidth}bdf
  19. /sepdef{
  20.  dup where not
  21.  {
  22. AltsysSepDict
  23.  }
  24.  if 
  25.  3 1 roll exch put
  26. }bdf
  27. /st{settransfer}bdf
  28. /colorimage defed /_rci xdf
  29. /_NXLevel2 defed { 
  30.  _NXLevel2 not {   
  31. /colorimage where {
  32. userdict eq {
  33. /_rci false def 
  34. } if
  35. } if
  36.  } if
  37. } if
  38. /md defed{ 
  39.  md type /dicttype eq {  
  40. /colorimage where { 
  41. md eq { 
  42. /_rci false def 
  43. }if
  44. }if
  45. /settransfer where {
  46. md eq {
  47. /st systemdict /settransfer get def
  48. }if
  49. }if
  50.  }if 
  51. }if
  52. /setstrokeadjust defed
  53. {
  54.  true setstrokeadjust
  55.  /C{curveto}bdf
  56.  /L{lineto}bdf
  57.  /m{moveto}bdf
  58. }
  59. {
  60.  /dr{transform .25 sub round .25 add 
  61. exch .25 sub round .25 add exch itransform}bdf
  62.  /C{dr curveto}bdf
  63.  /L{dr lineto}bdf
  64.  /m{dr moveto}bdf
  65.  /setstrokeadjust{pop}bdf 
  66. }ifelse
  67. /rectstroke defed /xt xdf
  68. xt {/yt save def} if
  69. /privrectpath { 
  70.  4 -2 roll m
  71.  dtransform round exch round exch idtransform 
  72.  2 copy 0 lt exch 0 lt xor
  73.  {dup 0 exch rlineto exch 0 rlineto neg 0 exch rlineto}
  74.  {exch dup 0 rlineto exch 0 exch rlineto neg 0 rlineto}
  75.  ifelse
  76.  closepath
  77. }bdf
  78. /rectclip{newpath privrectpath clip newpath}def
  79. /rectfill{gsave newpath privrectpath fill grestore}def
  80. /rectstroke{gsave newpath privrectpath stroke grestore}def
  81. xt {yt restore} if
  82. /packedarray{array astore readonly}ndf
  83. /` 
  84. { 
  85.  false setoverprint  
  86.  
  87.  
  88.  /-save0- save def
  89.  5 index concat
  90.  pop
  91.  storerect left bottom width height rectclip
  92.  pop
  93.  
  94.  userdict begin
  95.  
  96.  /showpage {} def
  97.  
  98.  0 setgray 0 setlinecap 1 setlinewidth
  99.  0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  100.  
  101.  false setstrokeadjust
  102. } bdf
  103. /currentpacking defed{true setpacking}if
  104. /min{2 copy gt{exch}if pop}bdf
  105. /max{2 copy lt{exch}if pop}bdf
  106. /xformfont { currentfont exch makefont setfont } bdf
  107. /fhnumcolors 1 
  108.  statusdict begin
  109. /processcolors defed 
  110. {
  111. pop processcolors
  112. }
  113. {
  114. /deviceinfo defed {
  115. deviceinfo /Colors known {
  116. pop deviceinfo /Colors get
  117. } if
  118. } if
  119. } ifelse
  120.  end 
  121. def
  122. /printerRes 
  123.  gsave
  124.  matrix defaultmatrix setmatrix
  125.  72 72 dtransform
  126.  abs exch abs
  127.  max
  128.  grestore
  129.  def
  130. /graycalcs
  131. [
  132.  {Angle Frequency}   
  133.  {GrayAngle GrayFrequency} 
  134.  {0 Width Height matrix defaultmatrix idtransform 
  135. dup mul exch dup mul add sqrt 72 exch div} 
  136.  {0 GrayWidth GrayHeight matrix defaultmatrix idtransform 
  137. dup mul exch dup mul add sqrt 72 exch div} 
  138. ] def
  139. /calcgraysteps {
  140.  /currenthalftone defed
  141.  {currenthalftone /dicttype eq}{false}ifelse
  142.  {
  143. currenthalftone begin
  144. HalftoneType 4 le
  145. {graycalcs HalftoneType 1 sub get exec}
  146. {
  147. HalftoneType 5 eq
  148. {
  149. Default begin
  150. {graycalcs HalftoneType 1 sub get exec}
  151. end
  152. }
  153. {0 60} 
  154. ifelse
  155. }
  156. ifelse
  157. end
  158.  }
  159.  {
  160. currentscreen pop exch 
  161.  }
  162.  ifelse
  163.  printerRes 300 max exch div exch 
  164.  2 copy        
  165.  sin mul round dup mul    
  166.  3 1 roll       
  167.  cos mul round dup mul    
  168.  add 1 add       
  169.  dup maxsteps gt {pop maxsteps} if  
  170. } bdf
  171. /nextrelease defed { 
  172.  /languagelevel defed not {    
  173. /framebuffer defed { 
  174. 0 40 string framebuffer 9 1 roll 8 {pop} repeat
  175. dup 516 eq exch 520 eq or
  176. {
  177. /fhnumcolors 3 def
  178. /currentscreen {60 0 {pop pop 1}}bdf
  179. /calcgraysteps {maxsteps} bdf
  180. }if
  181. }if
  182.  }if
  183. }if
  184. fhnumcolors 1 ne {
  185.  /calcgraysteps {maxsteps} bdf
  186. } if
  187. /gradfrequency 144 def
  188. printerRes 1000 lt {
  189.  /gradfrequency 72 def
  190. } if
  191. /adjnumsteps {
  192.  
  193.  dup dtransform abs exch abs max  
  194.  
  195.  printerRes div       
  196.  
  197.  gradfrequency mul      
  198.  round        
  199.  5 max       
  200.  min        
  201. }bdf
  202. /goodsep {
  203.  spots exch get 4 get dup sepname eq exch (_vc_Registration) eq or
  204. }bdf
  205. /BeginGradation defed
  206. {/bb{BeginGradation}bdf}
  207. {/bb{}bdf}
  208. ifelse
  209. /EndGradation defed
  210. {/eb{EndGradation}bdf}
  211. {/eb{}bdf}
  212. ifelse
  213. /bottom -0 def 
  214. /delta -0 def 
  215. /frac -0 def 
  216. /height -0 def 
  217. /left -0 def 
  218. /numsteps1 -0 def 
  219. /radius -0 def 
  220. /right -0 def 
  221. /top -0 def 
  222. /width -0 def 
  223. /xt -0 def 
  224. /yt -0 def 
  225. /df currentflat def 
  226. /tempstr 1 string def 
  227. /clipflatness currentflat 1 add def 
  228. /inverted? 
  229.  0 currenttransfer exec .5 ge def
  230. /tc1 [0 0 0 1] def 
  231. /tc2 [0 0 0 1] def 
  232. /storerect{/top xdf /right xdf /bottom xdf /left xdf 
  233. /width right left sub def /height top bottom sub def}bdf
  234. /concatprocs{
  235.  systemdict /packedarray known 
  236.  {dup type /packedarraytype eq 2 index type /packedarraytype eq or}{false}ifelse
  237.  { 
  238. /proc2 exch cvlit def /proc1 exch cvlit def
  239. proc1 aload pop proc2 aload pop
  240. proc1 length proc2 length add packedarray cvx
  241.  }
  242.  { 
  243. /proc2 exch cvlit def /proc1 exch cvlit def
  244. /newproc proc1 length proc2 length add array def
  245. newproc 0 proc1 putinterval newproc proc1 length proc2 putinterval
  246. newproc cvx
  247.  }ifelse
  248. }bdf
  249. /i{dup 0 eq
  250.  {pop df dup} 
  251.  {dup} ifelse 
  252.  1 add   
  253.  /clipflatness xdf setflat
  254. }bdf
  255. version cvr 38.0 le
  256. {/setrgbcolor{
  257. currenttransfer exec 3 1 roll
  258. currenttransfer exec 3 1 roll
  259. currenttransfer exec 3 1 roll
  260. setrgbcolor}bdf}if
  261. /vms {/vmsv save def} bdf
  262. /vmr {vmsv restore} bdf
  263. /vmrs{vmsv restore /vmsv save def}bdf
  264. /eomode{ 
  265.  {/filler /eofill load def /clipper /eoclip load def}
  266.  {/filler /fill load def /clipper /clip load def}
  267.  ifelse
  268. }bdf
  269. /normtaper{}bdf
  270. /logtaper{9 mul 1 add log}bdf
  271. /CD{
  272.  /NF exch def 
  273.  {    
  274. exch dup 
  275. /FID ne 1 index/UniqueID ne and
  276. {exch NF 3 1 roll put}
  277. {pop pop}
  278. ifelse
  279.  }forall 
  280.  NF
  281. }bdf
  282. /MN{
  283.  1 index length   
  284.  /Len exch def 
  285.  dup length Len add  
  286.  string dup    
  287.  Len     
  288.  4 -1 roll    
  289.  putinterval   
  290.  dup     
  291.  0      
  292.  4 -1 roll   
  293.  putinterval   
  294. }bdf
  295. /RC{4 -1 roll /ourvec xdf 256 string cvs(|______)anchorsearch
  296.  {1 index MN cvn/NewN exch def cvn
  297.  findfont dup maxlength dict CD dup/FontName NewN put dup
  298.  /Encoding ourvec put NewN exch definefont pop}{pop}ifelse}bdf
  299. /RF{ 
  300.  dup      
  301.  FontDirectory exch   
  302.  known     
  303.  {pop 3 -1 roll pop}  
  304.  {RC}
  305.  ifelse
  306. }bdf
  307. /FF{dup 256 string cvs(|______)exch MN cvn dup FontDirectory exch known
  308.  {exch pop findfont 3 -1 roll pop}
  309.  {pop dup findfont dup maxlength dict CD dup dup
  310.  /Encoding exch /Encoding get 256 array copy 7 -1 roll 
  311.  {3 -1 roll dup 4 -2 roll put}forall put definefont}
  312.  ifelse}bdf
  313. /fps{
  314.  currentflat   
  315.  exch     
  316.  dup 0 le{pop 1}if 
  317.  {
  318. dup setflat 3 index stopped
  319. {1.3 mul dup 3 index gt{pop setflat pop pop stop}if} 
  320. {exit} 
  321. ifelse
  322.  }loop 
  323.  pop setflat pop pop
  324. }bdf
  325. /fp{100 currentflat fps}bdf
  326. /clipper{clip}bdf 
  327. /W{/clipper load 100 clipflatness dup setflat fps}bdf